home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_065
/
prep
/
demo.f
next >
Wrap
Text File
|
1992-05-06
|
2KB
|
77 lines
include 'tencomn'
call init
call skipdat( skip0 )
if (eoflag) call exodus
call menu
17500 continue
do 12500 j = 1, 10
record( j ) = 0
12500 continue
do 12501 j = 1, 10
icount = j
call getdat
record( icount ) = firstrecord
if (eoflag) goto 22501
if ( icount .eq. 1 ) then
call vsbcol(dev, backcol)
call vclrwk(dev)
end if
call compact
call windower
if ( (((xpix1-xpix0+1) .eq. nrows) .and. ((ypix1-ypix0+1)
*.eq. ncols))) ) then
call pixie( HARDXDIM, nrows, ncols,
* xpix0, PHYSHEIGHT - 1 - ypix1,
* buffer )
else
call winfill( HARDXDIM, nrows, ncols,
* xpix0, xpix1,
* PHYSHEIGHT - 1 - ypix1,
* PHYSHEIGHT - 1 - ypix0,
* buffer )
end if
status = vsmstr( dev, ten, zero, echoxy, dummy)
if ( status .gt. 0 ) then
20000 continue
if (( upper( dummy(1:1) ) ).eq.( 'Q' )) then
call exodus
else if (( upper( dummy(1:1) ) ).eq.( 'R' )) then
goto 22501
else if (( upper( dummy(1:1) ) ).eq.( 'B' )) then
goto 22501
end if
end if
12501 continue
22501 continue
call skipdat( skip )
if ( moviemode ) then
if (eoflag) call exodus
call dump
else
17501 continue
20001 continue
lastkey = key(dev)
if (( lastkey ).eq.( 'D' )) then
call dump
goto 20001
else if (( lastkey ).eq.( 'Q' )) then
call exodus
else if (( lastkey ).eq.( 'R' )) then
call restart
else if (( lastkey ).eq.( 'B' )) then
call pop( recn )
recn = max0( recn, 1 )
eoflag = .false.
else
call push( max0( record(1), 1 ) )
call enlarger
end if
if (.not.( eoflag )) goto 15001
goto 17501
15001 continue
end if
goto 17500
15000 continue
call exodus
end